Einführung "VBA mit Microsoft Office"

Code Snippets "VBA Access"

Access-Formular mit Kombinationsfeld anstelle von InputBox
Problem: Aus Access-Formularen können keine Variablen byValue zurückgegeben werden, d.h. es wird empfohlen, auf globale Variablen zurückzugreifen Eine Kombination von Formular-Eigenschaften und Aufruf als Dialogfenster ermöglicht lokale Variablen

Access-Version herausfinden

Aktualisierung des Bildschirms während Ablauf eines Makros oder VBA-Moduls verhindern

Aufruf eines Wertes aus einer bestimmten Spalte eines Kombinationsfeldes in Formular mit Column
Achtung: Die Anzahl der Spalten in Eigenschaft "Spaltenzahl" muss stimmen. Hingegen ist es nicht nötig, dass die Spalte sichtbar ist -> Spaltenbreiten: .. 0cm…

Bericht, Abfrage oder Formular für aktuellen Datensatz öffnen

Computername mit Kernel-Funktion auslesen

Datenbankfenster verkleinern (minimieren)

Datenbankfenster verstecken bzw. ausblenden
Für autoexec-Makro

Externes Bild aufgrund von Bildpfad in Formular anzeigen
Zeigt externes Bild an, sofern vollständiger Bildpfad in DB vorhanden ist. Keinbild.gif ist ein Defaultbild, wenn Bild nicht gefunden wird.

Formular öffnen

Formulare mit voneinander abhängigen Kombinationsfeldern
Oft ist der Inhalt eines Kombinationsfeldes von anderen Kombinationsfeldern oder Formularinhalten abhängig, z.B. sollen nur noch Kategorien eines Projektes angezeigt werden. Dies ist möglich mit einer Kombination aus SQL und VBA.

Geschwindigkeit von Abfragen (Queries) messen

Gibt die Felder einer DB-Tabelle nach ihrer natürlichen Reihenfolge aus
Schema gibt Felder normalerweise alphabetisch zurück, deshalb braucht es noch eine Sortierung

Hilfsfunktionen und Hilfsroutinen, um Abhängigkeiten von Access-Abfragen aufzudröseln
Besser als die Anzeige von Abhängigkeiten in Access 2003, weil diese bei SELECTs in WHERE-Clauses versagt

In VB-Code Access-Query mit Parametern erzeugen

Ist ein Formular geöffnet?

Kombinationsfeld in Unterformular aufdatieren (Syntax für Formular und Steuerelemente)

Makro anhalten, bis Formular vom User geschlossen wird

Mit Kombinationsfeld einen Filter für ein Formular setzen
cboAuswahlProjekt ist das Kombinationsfeld, projektnr ist ein Fremdschlüssel der Tabelle

Mutationsdatum bei Änderungen in Formular automatisch aktualisieren
Bedingung: Haupttabelle hinter Formular besitzt ein Feld namens "Mutationsdatum"

Namen aller geöffneten Formulare und Steuerelemente ausgeben

Parametrisierte Abfrage (Query) in Access aus VBA-Code aufrufen (ADO)

Parametrisierte Abfrage (Query) in Access aus VBA-Code aufrufen (ADO) und in Array einlesen
Diese Lösung kommt ohne Recordset aus

Pfad und Dateinamen der aktuellen Datenbank herausfinden

Pfad und Dateinamen einer Access-DB in Bestandteile zerlegen

Ränder eines Berichts (Druckeinstellungen) mit VBA einstellen

Template für Connection und Recordset in Access

Textdokument von Unicode UTF8 zu Unicode (LittleEndian) konvertieren
Das Problem ist, dass dies unter Word 2000 (W9) und Word 2003 anders gemacht wird

Umstellen der Tastatur auf Russisch über Tastenkombination

Verknüpfung löschen

Verknüpfung zu Tabelle einer ODBC-DB herstellen, beispielsweise zu MySQL
dieser Connection String funktioniert, wenn MySQL-DB auf localhost liegt und in DSN bereits die Login-Daten gespeichert sind

Von Formular aus weiteres Formular anzeigen mit allgemeiner Prozedur
Allgemeine Prozedur, die von verschiedenen Formularen aus aufgerufen werden kann, statt Ereignisprozedur hinter Formular

Workgroup information Datei ausgeben für eine DB
Achtung: Bedingt Verweis auf DAO!